home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_3944.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  8.0 KB  |  370 lines
  1. -- card: 3944 from stack: in.1
  2. -- bmap block id: 2423
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=234 top=42 right=61 bottom=501
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=409 top=77 right=95 bottom=500
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 6006
  39. -- rect: left=94 top=149 right=169 bottom=113
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: New Button
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   set hilite of button ID 6 to false
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 28 (field)
  56. -- low flags: 00
  57. -- high flags: 0002
  58. -- rect: left=439 top=130 right=147 bottom=468
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 65535
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67.  
  68.  
  69. -- part 29 (field)
  70. -- low flags: 00
  71. -- high flags: 0002
  72. -- rect: left=474 top=130 right=147 bottom=500
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81.  
  82.  
  83. -- part 6 (button)
  84. -- low flags: 00
  85. -- high flags: 2006
  86. -- rect: left=240 top=150 right=170 bottom=259
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: New Button
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   set hilite of button ID 4 to false
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 9 (button)
  103. -- low flags: 00
  104. -- high flags: 6006
  105. -- rect: left=157 top=197 right=215 bottom=175
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: New Button
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   set hilite of button id 10 to false
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 7 (field)
  122. -- low flags: 00
  123. -- high flags: 0002
  124. -- rect: left=62 top=199 right=217 bottom=89
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 65535
  128. -- font id: 3
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: 
  133.  
  134.  
  135. -- part 10 (button)
  136. -- low flags: 00
  137. -- high flags: 2006
  138. -- rect: left=240 top=196 right=216 bottom=259
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: New Button
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   set hilite of button id 9 to false
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 13 (button)
  155. -- low flags: 00
  156. -- high flags: 2006
  157. -- rect: left=156 top=234 right=254 bottom=175
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: New Button
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   set hilite of button id 14 to false
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 14 (button)
  174. -- low flags: 00
  175. -- high flags: 6006
  176. -- rect: left=240 top=236 right=256 bottom=259
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: New Button
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   set hilite of button id 13 to false
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 21 (field)
  193. -- low flags: 00
  194. -- high flags: 0002
  195. -- rect: left=95 top=199 right=217 bottom=122
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: 
  204.  
  205.  
  206. -- part 16 (button)
  207. -- low flags: 00
  208. -- high flags: 2006
  209. -- rect: left=176 top=288 right=308 bottom=195
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: New Button
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   set hilite of button id 17 to false
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 20 (field)
  226. -- low flags: 00
  227. -- high flags: 0002
  228. -- rect: left=62 top=240 right=258 bottom=89
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 65535
  232. -- font id: 3
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: 
  237.  
  238.  
  239. -- part 17 (button)
  240. -- low flags: 00
  241. -- high flags: 6006
  242. -- rect: left=245 top=287 right=307 bottom=264
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: New Button
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   set hilite of button id 16 to false
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 22 (field)
  259. -- low flags: 00
  260. -- high flags: 0002
  261. -- rect: left=95 top=240 right=258 bottom=122
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 0
  265. -- font id: 3
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: 
  270.  
  271.  
  272. -- part 12 (field)
  273. -- low flags: 00
  274. -- high flags: 0002
  275. -- rect: left=62 top=291 right=309 bottom=89
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 65535
  279. -- font id: 3
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: 
  284.  
  285.  
  286. -- part 23 (button)
  287. -- low flags: 00
  288. -- high flags: A003
  289. -- rect: left=193 top=311 right=333 bottom=293
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: Continue
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   global Name, DateA,Hour, Minute,LatA, LatB,LongA,LongB,DateB, timeSeconds, longitude, latitude
  301.   put the hilite of card button ID 10 into latitude
  302.   put card field ID 1 into Name
  303.   put card field ID 2 into DateA
  304.   convert DateA to seconds
  305.   put card field ID 28 into Hour
  306.   put card field ID 29 into Minute
  307.   if hilite of button ID 6 is true then
  308.     subtract 1 from Hour
  309.     if Hour < 0 then
  310.       put 23 into Hour
  311.       subtract 60 from DateA
  312.     end if
  313.   end if
  314.   put card field ID 7 into LatA
  315.   put card field ID 21 into LatB
  316.   put card field ID 20 into LongA
  317.   put card field ID 22 into LongB
  318.   if hilite of button ID 17 is true then
  319.     add card field ID 12 to Hour
  320.     add card field ID 30 to Minute
  321.     if Minute > 60 then
  322.       subtract 60 from Minute
  323.       add 1 to Hour
  324.     end if
  325.   end if
  326.   if hilite of button ID 16 is true then
  327.     subtract card field ID 12 from Hour
  328.     subtract card field ID 30 from Minute
  329.     if Minute < 0 then
  330.       add 60 to Minute
  331.       subtract 1 from Hour
  332.     end if
  333.   end if
  334.   put DateA into DateB
  335.   if Hour >= 24 then
  336.     add 86400 to DateB
  337.     subtract 24 from Hour
  338.   end if
  339.   if Hour < 0 then
  340.     subtract 86400 from Date B
  341.     add 24 to Hour
  342.   end if
  343.   convert DateB to abbreviated date
  344.   put DateB & "." into card field ID 2 of card ID 5101
  345.   put DateB & ":" into card field ID 4 of card ID 5101
  346.   put DateB & "." into card field ID 1 of card ID 7360
  347.   put 3600 * Hour + 60 * MInute into timeSeconds
  348.   put the hilite of card button ID 14 into longitude
  349.   put LatA into card field ID 5 of card ID 6129
  350.   put LatB into card field ID 6 of card ID 6129
  351.   put LatA into card field ID 13 of card ID 7451
  352.   put LatB into card field ID 14 of card ID 7451
  353.   go to next card
  354. end mouseUp
  355.  
  356.  
  357.  
  358. -- part 30 (field)
  359. -- low flags: 00
  360. -- high flags: 0002
  361. -- rect: left=109 top=291 right=309 bottom=136
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 65535
  365. -- font id: 3
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: 
  370.